COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(COND (SAILP
C00004 ENDMK
C⊗;
(COND (SAILP
    (SETQ SWITCHTABLE 
	  (APPEND '(
		    (/$ FLOSW ())   (/+ FIXSW ())
		    (A ASSEMBLE () ) 
		    (B SWITCH-B ())
		    (C CLOSED () ) 
		    (D DISOWNED () ) 
		    (E EXPR-HASH () )
		    (F FASL ##(AND (MEMQ COMPILER-STATE '(MAKLAP DECLARE)) 'T))
		    (G GAG-ERRBREAKS () )  
		    (H SWITCH-H ())
		    (I INITIALIZE () )  
		    (J SWITCH-J ())
		    (K NOLAP ##(AND (MEMQ COMPILER-STATE '(MAKLAP DECLARE)) 'T))
		    (L SWITCH-L ())
		    (M MACROS () ) 
		    (N SWITCH-N ())
		    (O ARRAYOPEN T) 
		    (P SWITCH-P ())
		    (Q SWITCH-Q ())
		    (R SWICTH-R ())
		    (S SPECIALS () ) 
		    (T TTYNOTES ##(AND (NOT (MEMQ COMPILER-STATE 
						  '(MAKLAP DECLARE))) 'T))
		    (V SWITCH-V ())
		    (W MUZZLED () )  
		    (X MAPEX () ) 
		    (Y YESWARNTTY ##(AND (NOT (MEMQ COMPILER-STATE 
						    '(MAKLAP DECLARE))) 'T) ) 
		    (Z SYMBOLS () )
		    ) 
		  ())))
      (T 
       (